$  IF P1 .EQS. "" THEN GOTO NODATA
$  ASSIGN 'P1' FOR004
$  RUN FSDHOME:FSD
$  EXIT
$ NODATA :
$  WRITE SYS$OUTPUT "NO DATA FILE NAME"
$  EXIT
